object DMRelatorios_frm: TDMRelatorios_frm
  OldCreateOrder = False
  Left = 512
  Top = 229
  Height = 538
  Width = 657
  object IBQRelacaoBeneficios: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQRelacaoBeneficiosAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'SELECT A.DATALANCAMENTO, A.IDBENEFICIO, B.DESCRICAO, A.IDPESSOA,' +
        ' C.NOME, A.REGISTRO'
      'FROM LANCAMENTOS A'
      'JOIN BENEFICIOS B'
      'ON B.IDBENEFICIO = A.IDBENEFICIO'
      'JOIN PESSOAS C'
      'ON C.IDPESSOA = A.IDPESSOA'
      'WHERE A.DATALANCAMENTO BETWEEN :DATA1 AND :DATA2'
      
        'ORDER BY A.DATALANCAMENTO DESC, B.DESCRICAO, C.NOME,  A.REGISTRO' +
        ';')
    Left = 72
    Top = 16
    ParamData = <
      item
        DataType = ftDate
        Name = 'DATA1'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'DATA2'
        ParamType = ptInput
      end>
    object IBQRelacaoBeneficiosDATALANCAMENTO: TDateField
      FieldName = 'DATALANCAMENTO'
      Origin = 'LANCAMENTOS.DATALANCAMENTO'
      Required = True
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBQRelacaoBeneficiosIDBENEFICIO: TIntegerField
      FieldName = 'IDBENEFICIO'
      Origin = 'LANCAMENTOS.IDBENEFICIO'
      Required = True
    end
    object IBQRelacaoBeneficiosDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'BENEFICIOS.DESCRICAO'
      Required = True
      Size = 35
    end
    object IBQRelacaoBeneficiosIDPESSOA: TIntegerField
      FieldName = 'IDPESSOA'
      Origin = 'LANCAMENTOS.IDPESSOA'
      Required = True
    end
    object IBQRelacaoBeneficiosNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'PESSOAS.NOME'
      Size = 50
    end
    object IBQRelacaoBeneficiosREGISTRO: TIntegerField
      FieldName = 'REGISTRO'
      Origin = 'LANCAMENTOS.REGISTRO'
      Required = True
    end
  end
  object IBQRelacaoAtendimentos: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQRelacaoAtendimentosAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'SELECT A.DATA, A.IDDOMICILIO, D.NUMEROPASTA, A.IDUSUARIO, B.NOME' +
        ', A.HORA, A.IDPESSOA, C.NOME, A.IDATENDIMENTO'
      'FROM ATENDIMENTO A'
      'JOIN USUARIOS B'
      'ON B.REGISTRO = A.IDUSUARIO'
      'JOIN PESSOAS C'
      'ON C.IDPESSOA = A.IDPESSOA'
      'JOIN DOMICILIO D'
      'ON D.IDDOMICILIO = A.IDDOMICILIO'
      'WHERE A.DATA BETWEEN :DATA1 AND :DATA2'
      
        'ORDER BY A.DATA DESC, B.NOME, A.IDDOMICILIO, C.NOME, A.HORA DESC' +
        ', A.IDATENDIMENTO;')
    Left = 240
    Top = 16
    ParamData = <
      item
        DataType = ftDate
        Name = 'DATA1'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'DATA2'
        ParamType = ptInput
      end>
    object IBQRelacaoAtendimentosDATA: TDateField
      FieldName = 'DATA'
      Origin = 'ATENDIMENTO.DATA'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBQRelacaoAtendimentosIDDOMICILIO: TIntegerField
      FieldName = 'IDDOMICILIO'
      Origin = 'ATENDIMENTO.IDDOMICILIO'
    end
    object IBQRelacaoAtendimentosNUMEROPASTA: TIntegerField
      FieldName = 'NUMEROPASTA'
      Origin = 'DOMICILIO.NUMEROPASTA'
      Required = True
    end
    object IBQRelacaoAtendimentosIDUSUARIO: TIntegerField
      FieldName = 'IDUSUARIO'
      Origin = 'ATENDIMENTO.IDUSUARIO'
    end
    object IBQRelacaoAtendimentosNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'USUARIOS.NOME'
      Size = 50
    end
    object IBQRelacaoAtendimentosHORA: TTimeField
      FieldName = 'HORA'
      Origin = 'ATENDIMENTO.HORA'
      DisplayFormat = 'HH:mm:ss'
      EditMask = '!99:99:99;1; '
    end
    object IBQRelacaoAtendimentosIDPESSOA: TIntegerField
      FieldName = 'IDPESSOA'
      Origin = 'ATENDIMENTO.IDPESSOA'
    end
    object IBQRelacaoAtendimentosNOME1: TIBStringField
      FieldName = 'NOME1'
      Origin = 'PESSOAS.NOME'
      Size = 50
    end
    object IBQRelacaoAtendimentosIDATENDIMENTO: TIntegerField
      FieldName = 'IDATENDIMENTO'
      Origin = 'ATENDIMENTO.IDATENDIMENTO'
      Required = True
    end
  end
  object IBQRelacaoEncaminhamentos: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQRelacaoEncaminhamentosAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'SELECT A.DATA, A.IDUSUARIO, B.NOME, A.IDDOMICILIO, E.NUMEROPASTA' +
        ', A.IDPESSOA, C.NOME, A.IDENCAMINHAMENTO, D.DESCRICAO, A.HORA, A' +
        '.IDREGISTRO'
      'FROM ENCAMINHAMENTOS A'
      'JOIN USUARIOS B'
      'ON B.REGISTRO = A.IDUSUARIO'
      'JOIN PESSOAS C'
      'ON C.IDPESSOA = A.IDPESSOA'
      'JOIN CODIGOENCAMINHAMENTO D'
      'ON D.IDENCAMINHAMENTO = A.IDENCAMINHAMENTO'
      'JOIN DOMICILIO E'
      'ON E.IDDOMICILIO = A.IDDOMICILIO'
      'WHERE A.DATA BETWEEN :DATA1 AND :DATA2'
      
        'ORDER BY A.DATA DESC, B.NOME, A.IDDOMICILIO, C.NOME, D.DESCRICAO' +
        ', A.HORA DESC, A.IDREGISTRO;')
    Left = 72
    Top = 64
    ParamData = <
      item
        DataType = ftDate
        Name = 'DATA1'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'DATA2'
        ParamType = ptInput
      end>
    object IBQRelacaoEncaminhamentosDATA: TDateField
      FieldName = 'DATA'
      Origin = 'ENCAMINHAMENTOS.DATA'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBQRelacaoEncaminhamentosIDUSUARIO: TIntegerField
      FieldName = 'IDUSUARIO'
      Origin = 'ENCAMINHAMENTOS.IDUSUARIO'
      Required = True
    end
    object IBQRelacaoEncaminhamentosNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'USUARIOS.NOME'
      Size = 50
    end
    object IBQRelacaoEncaminhamentosIDDOMICILIO: TIntegerField
      FieldName = 'IDDOMICILIO'
      Origin = 'ENCAMINHAMENTOS.IDDOMICILIO'
      Required = True
    end
    object IBQRelacaoEncaminhamentosNUMEROPASTA: TIntegerField
      FieldName = 'NUMEROPASTA'
      Origin = 'DOMICILIO.NUMEROPASTA'
      Required = True
    end
    object IBQRelacaoEncaminhamentosIDPESSOA: TIntegerField
      FieldName = 'IDPESSOA'
      Origin = 'ENCAMINHAMENTOS.IDPESSOA'
      Required = True
    end
    object IBQRelacaoEncaminhamentosNOME1: TIBStringField
      FieldName = 'NOME1'
      Origin = 'PESSOAS.NOME'
      Size = 50
    end
    object IBQRelacaoEncaminhamentosIDENCAMINHAMENTO: TIntegerField
      FieldName = 'IDENCAMINHAMENTO'
      Origin = 'ENCAMINHAMENTOS.IDENCAMINHAMENTO'
      Required = True
    end
    object IBQRelacaoEncaminhamentosDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'CODIGOENCAMINHAMENTO.DESCRICAO'
      Required = True
      Size = 140
    end
    object IBQRelacaoEncaminhamentosHORA: TTimeField
      FieldName = 'HORA'
      Origin = 'ENCAMINHAMENTOS.HORA'
      DisplayFormat = 'HH:mm:ss'
      EditMask = '!99:99:99;1; '
    end
    object IBQRelacaoEncaminhamentosIDREGISTRO: TIntegerField
      FieldName = 'IDREGISTRO'
      Origin = 'ENCAMINHAMENTOS.IDREGISTRO'
      Required = True
    end
  end
  object IBQRelacaoPublico: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQRelacaoPublicoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'SELECT A.IDPUBLICO, B.DESCRICAO, B.VALORIDFDE, B.VALORIDFATE, A.' +
        'IDDOMICILIO, A.NUMEROPASTA, C.IDRELACAORF, D.DESCRICAO, C.IDPESS' +
        'OA, C.NOME, C.DATANASCIMENTO'
      'FROM DOMICILIO A'
      'JOIN TABELAIDF B'
      'ON B.CLASSIFICACAOPUBLICO = A.IDPUBLICO'
      'JOIN PESSOAS C'
      'ON C.IDDOMICILIO = A.IDDOMICILIO'
      'JOIN RELACAORF D'
      'ON D.IDRELACAORF = C.IDRELACAORF'
      'WHERE A.IDDOMICILIO > 0'
      
        'ORDER BY A.IDPUBLICO, A.IDDOMICILIO, C.IDRELACAORF, C.DATANASCIM' +
        'ENTO, C.NOME;')
    Left = 240
    Top = 64
    object IBQRelacaoPublicoIDPUBLICO: TIBStringField
      FieldName = 'IDPUBLICO'
      Origin = 'DOMICILIO.IDPUBLICO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object IBQRelacaoPublicoDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'TABELAIDF.DESCRICAO'
      Required = True
      Size = 50
    end
    object IBQRelacaoPublicoVALORIDFDE: TIBBCDField
      FieldName = 'VALORIDFDE'
      Origin = 'TABELAIDF.VALORIDFDE'
      Required = True
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBQRelacaoPublicoVALORIDFATE: TIBBCDField
      FieldName = 'VALORIDFATE'
      Origin = 'TABELAIDF.VALORIDFATE'
      Required = True
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBQRelacaoPublicoIDDOMICILIO: TIntegerField
      FieldName = 'IDDOMICILIO'
      Origin = 'DOMICILIO.IDDOMICILIO'
      Required = True
    end
    object IBQRelacaoPublicoNUMEROPASTA: TIntegerField
      FieldName = 'NUMEROPASTA'
      Origin = 'DOMICILIO.NUMEROPASTA'
      Required = True
    end
    object IBQRelacaoPublicoIDRELACAORF: TIntegerField
      FieldName = 'IDRELACAORF'
      Origin = 'PESSOAS.IDRELACAORF'
      Required = True
    end
    object IBQRelacaoPublicoDESCRICAO1: TIBStringField
      FieldName = 'DESCRICAO1'
      Origin = 'RELACAORF.DESCRICAO'
      Required = True
      Size = 35
    end
    object IBQRelacaoPublicoIDPESSOA: TIntegerField
      FieldName = 'IDPESSOA'
      Origin = 'PESSOAS.IDPESSOA'
      Required = True
    end
    object IBQRelacaoPublicoNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'PESSOAS.NOME'
      Size = 50
    end
    object IBQRelacaoPublicoDATANASCIMENTO: TDateField
      FieldName = 'DATANASCIMENTO'
      Origin = 'PESSOAS.DATANASCIMENTO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
  end
  object IBQCadastroDesatualizado: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQCadastroDesatualizadoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'SELECT A.IDDOMICILIO, A.NUMEROPASTA, A.DATARENOVACAO, A.DATAATUA' +
        'LIZACAO'
      'FROM DOMICILIO A'
      'WHERE A.IDDOMICILIO > 0 AND A.DATARENOVACAO <= CURRENT_DATE'
      'ORDER BY A.DATARENOVACAO, A.IDDOMICILIO;')
    Left = 72
    Top = 112
    object IBQCadastroDesatualizadoIDDOMICILIO: TIntegerField
      FieldName = 'IDDOMICILIO'
      Origin = 'DOMICILIO.IDDOMICILIO'
      Required = True
    end
    object IBQCadastroDesatualizadoNUMEROPASTA: TIntegerField
      FieldName = 'NUMEROPASTA'
      Origin = 'DOMICILIO.NUMEROPASTA'
      Required = True
    end
    object IBQCadastroDesatualizadoDATARENOVACAO: TDateField
      FieldName = 'DATARENOVACAO'
      Origin = 'DOMICILIO.DATARENOVACAO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBQCadastroDesatualizadoDATAATUALIZACAO: TDateField
      FieldName = 'DATAATUALIZACAO'
      Origin = 'DOMICILIO.DATAATUALIZACAO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
  end
  object IBQInconsistenciaRenda: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQInconsistenciaRendaAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT CODDOMICILIO, TOTALRENDAS, TOTALDESPESAS, APURADO'
      'FROM CONSISTENCIARENDA'
      'WHERE CODDOMICILIO > 0 AND APURADO < 0'
      'ORDER BY CODDOMICILIO;')
    Left = 240
    Top = 112
    object IBQInconsistenciaRendaCODDOMICILIO: TIntegerField
      FieldName = 'CODDOMICILIO'
      Origin = 'CONSISTENCIARENDA.CODDOMICILIO'
    end
    object IBQInconsistenciaRendaTOTALRENDAS: TIBBCDField
      FieldName = 'TOTALRENDAS'
      Origin = 'CONSISTENCIARENDA.TOTALRENDAS'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBQInconsistenciaRendaTOTALDESPESAS: TIBBCDField
      FieldName = 'TOTALDESPESAS'
      Origin = 'CONSISTENCIARENDA.TOTALDESPESAS'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBQInconsistenciaRendaAPURADO: TIBBCDField
      FieldName = 'APURADO'
      Origin = 'CONSISTENCIARENDA.APURADO'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
  end
  object IBQInconsistenciaIdadeRF: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQInconsistenciaIdadeRFAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'SELECT A.IDDOMICILIO, A.NOME, (EXTRACT(YEAR FROM CURRENT_DATE)-E' +
        'XTRACT(YEAR FROM A.DATANASCIMENTO)) AS IDADE'
      'FROM PESSOAS A'
      
        'WHERE A.IDDOMICILIO > 0 AND A.IDPESSOA > 0 AND A.IDRELACAORF = 1' +
        ' AND ((EXTRACT(YEAR FROM CURRENT_DATE)-EXTRACT(YEAR FROM A.DATAN' +
        'ASCIMENTO)) < 16)'
      'ORDER BY A.IDDOMICILIO;')
    Left = 72
    Top = 160
    object IBQInconsistenciaIdadeRFIDDOMICILIO: TIntegerField
      FieldName = 'IDDOMICILIO'
      Origin = 'PESSOAS.IDDOMICILIO'
      Required = True
    end
    object IBQInconsistenciaIdadeRFNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'PESSOAS.NOME'
      Size = 50
    end
    object IBQInconsistenciaIdadeRFIDADE: TLargeintField
      FieldName = 'IDADE'
    end
  end
  object IBQDuplicidadeDomicilio_M: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQDuplicidadeDomicilio_MAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT COUNT(IDDOMICILIO) AS OCORRENCIAS, ENDERECO, NUMERO'
      'FROM DOMICILIO'
      'WHERE IDDOMICILIO > 0'
      'GROUP BY ENDERECO, NUMERO'
      'HAVING COUNT(IDDOMICILIO) >= 2'
      'ORDER BY OCORRENCIAS DESC, ENDERECO, NUMERO;')
    Left = 72
    Top = 208
    object IBQDuplicidadeDomicilio_MOCORRENCIAS: TIntegerField
      FieldName = 'OCORRENCIAS'
      Required = True
    end
    object IBQDuplicidadeDomicilio_MENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Origin = 'DOMICILIO.ENDERECO'
      Required = True
      Size = 50
    end
    object IBQDuplicidadeDomicilio_MNUMERO: TIntegerField
      FieldName = 'NUMERO'
      Origin = 'DOMICILIO.NUMERO'
      Required = True
    end
  end
  object IBQDuplicidadeDomicilio_D: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQDuplicidadeDomicilio_DAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'SELECT A.IDDOMICILIO, A.NUMEROPASTA, B.DESCRICAO||'#39' '#39'||A.ENDEREC' +
        'O||'#39','#39'||A.NUMERO||'#39','#39'||A.COMPLEMENTO||'#39','#39'||A.BAIRRO AS ENDERECO'
      'FROM DOMICILIO A'
      'JOIN TIPOENDERECO B'
      'ON B.IDTIPOENDERECO = A.IDTIPO'
      'WHERE A.ENDERECO = :ENDERECO AND A.NUMERO = :NUMERO'
      'ORDER BY ENDERECO, A.IDDOMICILIO;')
    Left = 240
    Top = 208
    ParamData = <
      item
        DataType = ftString
        Name = 'ENDERECO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'NUMERO'
        ParamType = ptInput
      end>
    object IBQDuplicidadeDomicilio_DIDDOMICILIO: TIntegerField
      FieldName = 'IDDOMICILIO'
      Origin = 'DOMICILIO.IDDOMICILIO'
      Required = True
    end
    object IBQDuplicidadeDomicilio_DNUMEROPASTA: TIntegerField
      FieldName = 'NUMEROPASTA'
      Origin = 'DOMICILIO.NUMEROPASTA'
      Required = True
    end
    object IBQDuplicidadeDomicilio_DENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Size = 145
    end
  end
  object IBQDuplicidadePessoas_M: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQDuplicidadePessoas_MAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT COUNT(IDPESSOA) AS OCORRENCIAS, NOME, DATANASCIMENTO'
      'FROM PESSOAS'
      'WHERE IDPESSOA > 0'
      'GROUP BY NOME, DATANASCIMENTO'
      'HAVING COUNT(IDPESSOA) >= 2'
      'ORDER BY OCORRENCIAS DESC, NOME;')
    Left = 72
    Top = 256
    object IBQDuplicidadePessoas_MOCORRENCIAS: TIntegerField
      FieldName = 'OCORRENCIAS'
      Required = True
    end
    object IBQDuplicidadePessoas_MNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'PESSOAS.NOME'
      Size = 50
    end
    object IBQDuplicidadePessoas_MDATANASCIMENTO: TDateField
      FieldName = 'DATANASCIMENTO'
      Origin = 'PESSOAS.DATANASCIMENTO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
  end
  object IBQDuplicidadePessoas_D: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQDuplicidadePessoas_DAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'SELECT A.IDPESSOA, A.IDDOMICILIO, A.NOME, A.DATANASCIMENTO, A.MA' +
        'E, A.NATURALIDADE||'#39'/'#39'||A.UFNATURAL AS NATURALIDADE, A.CPF, A.NI' +
        'S'
      'FROM PESSOAS A'
      'WHERE A.NOME = :NOME AND A.DATANASCIMENTO = :DATANASCIMENTO'
      'ORDER BY A.NOME, A.IDDOMICILIO;')
    Left = 240
    Top = 256
    ParamData = <
      item
        DataType = ftString
        Name = 'NOME'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'DATANASCIMENTO'
        ParamType = ptInput
      end>
    object IBQDuplicidadePessoas_DIDPESSOA: TIntegerField
      FieldName = 'IDPESSOA'
      Origin = 'PESSOAS.IDPESSOA'
      Required = True
    end
    object IBQDuplicidadePessoas_DIDDOMICILIO: TIntegerField
      FieldName = 'IDDOMICILIO'
      Origin = 'PESSOAS.IDDOMICILIO'
      Required = True
    end
    object IBQDuplicidadePessoas_DNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'PESSOAS.NOME'
      Size = 50
    end
    object IBQDuplicidadePessoas_DDATANASCIMENTO: TDateField
      FieldName = 'DATANASCIMENTO'
      Origin = 'PESSOAS.DATANASCIMENTO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBQDuplicidadePessoas_DMAE: TIBStringField
      FieldName = 'MAE'
      Origin = 'PESSOAS.MAE'
      Size = 50
    end
    object IBQDuplicidadePessoas_DNATURALIDADE: TIBStringField
      FieldName = 'NATURALIDADE'
      Size = 38
    end
    object IBQDuplicidadePessoas_DCPF: TIBStringField
      FieldName = 'CPF'
      Origin = 'PESSOAS.CPF'
      EditMask = '!999\.999\.999\-99;0; '
      Size = 11
    end
    object IBQDuplicidadePessoas_DNIS: TIBStringField
      FieldName = 'NIS'
      Origin = 'PESSOAS.NIS'
      EditMask = '!999\.999\.9999\-9;0; '
      Size = 11
    end
  end
end
